home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / PPCSmallTalk / prelude / bytearray.st < prev    next >
Encoding:
Text File  |  1986-10-19  |  344 b   |  22 lines
  1. Class ByteArray :ArrayedCollection
  2. [
  3.     new: size
  4.         ^ <primitive 116 size>
  5. |
  6.     at: index
  7.         ^ <primitive 118 self index>
  8. |
  9.     at: index put: value
  10.         <primitive 119 self index value>
  11. |
  12.     printString    | str |
  13.         str <- '#[ '.
  14.         (1 to: self size)
  15.             do: [:i | str <- str , (self at: i) printString , ' '].
  16.         ^ str , ']'
  17. |
  18.     size
  19.         ^ <primitive 117 self>
  20. ]
  21.  
  22.